home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 4671-5.790 / dmg-4695 / giveway.17 / source / 22222222.bas (.txt) next >
Atari STOS Basic  |  1987-04-21  |  24KB  |  88 lines
  1. 10 KEY
  2. 100 GOSUB
  3. 110 VARNAME
  4. 120 VARNAME
  5. 130 GOSUB
  6. 140 VARNAME
  7. 150 IF
  8. 160 IF
  9. 170 REPEAT
  10. 180 SCREEN COPY
  11. 190 SCREEN COPY
  12. 20 MODE
  13. 200 SCREEN$
  14. 210 SCREEN COPY
  15. 220 INC
  16. 230 IF
  17. 240 SCREEN SWAP
  18. 250 IF
  19. 260 IF
  20. 270 IF
  21. 280 SCREEN COPY
  22. 290 IF
  23. 30 HIDE
  24. 300 IF
  25. 310 IF
  26. 320 IF
  27. 330 UNTIL
  28. 340 REM set up the letter data
  29. 350 VARNAME
  30. 360 FOR
  31. 370 FOR
  32. 380 VARNAME
  33. 390 INC
  34. 40 CURS
  35. 400 NEXT
  36. 410 VARNAME
  37. 420 RETURN
  38. 430 REM sort out shifter font!! using sprite file!
  39. 440 REM ~~~~~~~~
  40. 450 FOR
  41. 460 REM first frame
  42. 470 CLS
  43. 480 UPDATE
  44. 490 VARNAME
  45. 5 REM Checked GFF א™
  46. 50 REM set up screens for font
  47. 500 NEXT
  48. 510 SPRITE
  49. 520 RETURN
  50. 530 REM turn sprite bank into a screen
  51. 540 MODE
  52. 550 RESERVE
  53. 560 HIDE
  54. 570 CURS
  55. 580 KEY
  56. 590 CLS
  57. 60 GOSUB
  58. 600 VARNAME
  59. 610 REM ~~~~~~~~~~~~~~~~~~~
  60. 620 FOR
  61. 630 SPRITE
  62. 640 REDRAW
  63. 650 PUT SPRITE
  64. 660 VARNAME
  65. 670 IF
  66. 680 NEXT
  67. 690 SCREEN COPY
  68. 70 DIM
  69. 700 RETURN
  70. 710 REM set up screen and colours
  71. 720 VARNAME
  72. 730 FOR
  73. 740 RETURN
  74. 750 REM TEXT MESSAGE GOES HERE
  75. 760 VARNAME
  76. 770 FOR
  77. 780 VARNAME
  78. 790 IF
  79. 80 LOGIC
  80. 800 IF
  81. 810 IF
  82. 820 IF
  83. 830 IF
  84. 840 MID$
  85. 850 NEXT
  86. 860 RETURN
  87. 90 VARNAME
  88.